---
title: "Mortalitätsmonitoring Schweiz"
knit: (function(input_file, encoding) {
  out_dir <- '_book';
  if (!dir.exists(out_dir)) dir.create(out_dir);
  rmarkdown::render(input_file,
  encoding=encoding,
  output_file=file.path(dirname(input_file), out_dir, 'index.html'))})
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    social: menu
    source_code: embed
---

```{r setup, include=FALSE}
library(dygraphs)
library(dplyr)
library(readr)
source('momodyfun.R')

dft <- dyfun('../data/todesfaelle_woche.csv', '../data/grossregionCH.csv') 
```

### Graf ![Run download](https://github.com/norman-ds/momo/workflows/Run%20download/badge.svg)
![Run download](https://github.com/norman-ds/momo/workflows/Run%20download/badge.svg)
![Deploy dashboard](https://github.com/norman-ds/momo/workflows/Deploy%20dashboard/badge.svg)
```{r}
myxts <- dft %>%
  filter(kt == 'CH') %>%
  group_by(date) %>%
  summarise(value = sum(value)) %>% 
  xts::xts(order.by = .$date)
dygraph(myxts) %>% dyRangeSelector()
```


### Table

[Opendata](https://opendata.swiss/de/dataset/todesfalle-nach-funf-jahres-altersgruppe-geschlecht-woche-und-kanton-csv-datei5),
[Todesfälle](https://www.bfs.admin.ch/bfs/de/home/statistiken/bevoelkerung/geburten-todesfaelle/todesfaelle.html),
[Sterblichkeit, Todesursachen](https://www.bfs.admin.ch/bfs/de/home/statistiken/gesundheit/gesundheitszustand/sterblichkeit-todesursachen.html),
[Mortalitätsmonitoring (MOMO)](https://www.experimental.bfs.admin.ch/de/momo.html)


```{r}
dft %>%
  top_n(5) %>%
  knitr::kable(caption = 'Todesfallzahl  Top 5 ')
```